home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_143 / rim / rimsrcami.arc / RELTBL.BLK < prev    next >
Text File  |  1988-01-05  |  750b  |  24 lines
  1. C
  2. C  *** / R E L T B L / ***
  3. C
  4. C  BUFFER TO HOLD ONE PAGE FROM THE RELTBL RELATION
  5. C
  6.       COMMON /RELTBL/ RELBUF(1024),
  7.      X CNAME,LRROW,NRROW,RELMOD,RPBUF
  8.       INTEGER RELBUF
  9.       REAL*8 CNAME
  10.       INTEGER RELMOD
  11.       INTEGER RPBUF
  12.       INTEGER RELTBL(14,73)
  13.       EQUIVALENCE (RELBUF(2),RELTBL(1,1))
  14. C
  15. C  VARIABLE DEFINITIONS:
  16. C         RELBUF--BUFFER FOR ONE PAGE FROM THE RELTBL RELATION
  17. C         RELTBL--EQUIVALENCE ARRAY FOR EASIER USE OF RELBUF
  18. C         CNAME---CURRENT RELATION NAME SPECIFIED IN LOCREL
  19. C         LRROW---LAST ROW SENT IN TUPLER
  20. C         NRROW---NEXT AVAILABLE ROW FOR ADDING A TUPLE
  21. C         RELMOD--MODIFICATION FLAG - O MEANS NO, 1 MEANS YES
  22. C         RPBUF---RELATIONS PER RELBUF PAGE
  23. C
  24.